home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / H-L / Invoicer.cpt / Accounts Rec'd < prev    next >
Text File  |  1987-04-07  |  6KB  |  216 lines
  1.  CodeChk:
  2.     CLS
  3.     TEXTSIZE (24):TEXTFACE(5)
  4.     PRINT:PRINT SPC(7);"ACCOUNTS RECEIVED"
  5.     TEXTSIZE(12):TEXTFACE(0)
  6.     INPUT"Customer Code ('help' for code list, 'return' for all): ",CO$
  7.     cd$=CO$
  8.     IF CO$="help" OR CO$ = "h" THEN CLS: GOTO ListCodes
  9.     IF CO$=""THEN Begin
  10.     IF CO$="quit" OR CO$="q" THEN CLS:LOAD "Open Me First",R
  11.     IF LEN(CO$)<>2 THEN RUN
  12. GOSUB Code
  13.   Begin:
  14. CLS
  15.     TEXTSIZE (24):TEXTFACE(5)
  16.     PRINT:PRINT SPC(11);"RECEIVED"
  17.     WINDOW 2,"",(25,100)-(476,200),3
  18.     TEXTFACE(1):TEXTSIZE(14)
  19.     PRINT SPC(3);"START"
  20.     BUTTON 1,1,"jan",(25,30)-(75,55),1
  21.     BUTTON 2,1,"feb",(95,30)-(145,55),1
  22.     BUTTON 3,1,"mar",(165,30)-(215,55),1
  23.     BUTTON 4,1,"apr",(235,30)-(285,55),1
  24.     BUTTON 5,1,"may",(305,30)-(355,55),1
  25.     BUTTON 6,1,"jun",(375,30)-(425,55),1
  26.     BUTTON 7,1,"jul",(25,65)-(75,90),1
  27.     BUTTON 8,1,"aug",(95,65)-(145,90),1
  28.     BUTTON 9,1,"sep",(165,65)-(215,90),1
  29.     BUTTON 10,1,"oct",(235,65)-(285,90),1
  30.     BUTTON 11,1,"nov",(305,65)-(355,90),1
  31.     BUTTON 12,1,"dec",(375,65)-(425,90),1
  32.     WHILE DIALOG(0)<>1:WEND
  33.     ButtonPushed =DIALOG(1)
  34.     IF ButtonPushed = 1 THEN sd$="01"
  35.     IF ButtonPushed = 2 THEN sd$="02"
  36.     IF ButtonPushed = 3 THEN sd$="03"
  37.     IF ButtonPushed = 4 THEN sd$="04"
  38.     IF ButtonPushed = 5 THEN sd$="05"
  39.     IF ButtonPushed = 6 THEN sd$="06"
  40.     IF ButtonPushed = 7 THEN sd$="07"
  41.     IF ButtonPushed = 8 THEN sd$="08"
  42.     IF ButtonPushed = 9 THEN sd$="09"
  43.     IF ButtonPushed = 10 THEN sd$="10"
  44.     IF ButtonPushed = 11 THEN sd$="11"
  45.     IF ButtonPushed = 12 THEN sd$="12"
  46.     
  47.     
  48.     TEXTSIZE (24):TEXTFACE(5)
  49.     
  50.     WINDOW 3,"",(25,220)-(476,320),3
  51.     TEXTFACE(1):TEXTSIZE(14)
  52.     PRINT SPC(3);"FINISH"
  53.     BUTTON 1,1,"jan",(25,30)-(75,55),1
  54.     BUTTON 2,1,"feb",(95,30)-(145,55),1
  55.     BUTTON 3,1,"mar",(165,30)-(215,55),1
  56.     BUTTON 4,1,"apr",(235,30)-(285,55),1
  57.     BUTTON 5,1,"may",(305,30)-(355,55),1
  58.     BUTTON 6,1,"jun",(375,30)-(425,55),1
  59.     BUTTON 7,1,"jul",(25,65)-(75,90),1
  60.     BUTTON 8,1,"aug",(95,65)-(145,90),1
  61.     BUTTON 9,1,"sep",(165,65)-(215,90),1
  62.     BUTTON 10,1,"oct",(235,65)-(285,90),1
  63.     BUTTON 11,1,"nov",(305,65)-(355,90),1
  64.     BUTTON 12,1,"dec",(375,65)-(425,90),1
  65.     WHILE DIALOG(0)<>1:WEND
  66.     ButtonPushed =DIALOG(1)
  67.     IF ButtonPushed = 1 THEN ed$="01"
  68.     IF ButtonPushed = 2 THEN ed$="02"
  69.     IF ButtonPushed = 3 THEN ed$="03"
  70.     IF ButtonPushed = 4 THEN ed$="04"
  71.     IF ButtonPushed = 5 THEN ed$="05"
  72.     IF ButtonPushed = 6 THEN ed$="06"
  73.     IF ButtonPushed = 7 THEN ed$="07"
  74.     IF ButtonPushed = 8 THEN ed$="08"
  75.     IF ButtonPushed = 9 THEN ed$="09"
  76.     IF ButtonPushed = 10 THEN ed$="10"
  77.     IF ButtonPushed = 11 THEN ed$="11"
  78.     IF ButtonPushed = 12 THEN ed$="12"
  79.     
  80.     IF ed$ < sd$ THEN BEEP: RUN
  81.     WINDOW CLOSE 2:WINDOW CLOSE 3
  82.     WINDOW OUTPUT 1: CLS
  83.  
  84.   Strt:
  85.    OPEN "Accts Recd" FOR INPUT AS #1
  86.    WINDOW 2,"",(25,50)-(476,280),3
  87.   Reedata:
  88.    IF EOF(1) THEN Finish
  89.    INPUT#1, ts$
  90.    INPUT#1, CO$
  91.    INPUT#1,dr$
  92.    INPUT#1,CN$
  93.    INPUT #1, PR$
  94.    IF LEFT$(dr$,2)<sd$ THEN Reedata
  95.    IF LEFT$(dr$,2)>ed$ THEN Finish
  96.    IF cd$="" OR cd$="all" THEN Skipit
  97.    IF CO$<>cd$ THEN Reedata
  98.  Skipit:
  99.    TEXTFACE(0)
  100.    PRINT SPC(1); dr$;SPC(2);
  101.    TEXTFACE(1)
  102.    IF LEN (CN$) >34 THEN PRINT LEFT$(CN$,34);"…";TAB(42);
  103.    IF LEN (CN$) > 34 THEN GOTO Skpt
  104.    PRINT CN$;TAB(42);
  105.  Skpt:
  106.    PR=VAL(PR$)
  107.    PRINT USING "$#####.##";PR
  108.    FT=FT+PR
  109.    IF EOF(1) THEN Finish
  110.    GOTO Reedata
  111.   Finish:
  112.     PRINT CHR$(13);
  113.     TEXTSIZE(18):TEXTFACE(1)
  114.     PRINT"TOTAL RECEIVED:";
  115.     TEXTSIZE(12)
  116.     PRINT TAB(42);
  117.     PRINT USING"$#####.##";FT;
  118.  
  119.     CLOSE #1
  120.  
  121.   YourChoice:
  122.     WINDOW 3,"",(25,285)-(476,330),-3
  123.     BUTTON 1,1,"again",(55,10)-(130,35),1
  124.     BUTTON 2,1,"print",(192,10)-(267,35),1
  125.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  126.     WHILE DIALOG(0)<>1:WEND
  127.     ButtonPushed =DIALOG(1)
  128.     IF ButtonPushed =1 THEN FT=0:RUN
  129.     IF ButtonPushed =2 THEN FT=0:GOTO PrntWarning
  130.     IF ButtonPushed =3 THEN WINDOW CLOSE 2:WINDOW CLOSE 3: CLS: LOAD "Open Me First",R
  131.  
  132.   PrntWarning:
  133.     WINDOW 4,"",(115,120)-(375,200),-2
  134.     TEXTFACE(1)
  135.     PRINT"Please make sure printer is turned"
  136.     PRINT"on and loaded with paper."
  137.     BUTTON 1,1,"OK",(105,45)-(165,65),1
  138.     BUTTON 2,1,"cancel",(185,45)-(245,65),1
  139.     WHILE DIALOG(0)<>1:WEND
  140.     ButtonPushed =DIALOG(1)
  141.     IF ButtonPushed=1 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO Prnt
  142.     IF ButtonPushed=2 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO YourChoice
  143.  
  144.   Prnt:
  145.    LPRINT CHR$ (27);"X";
  146.    LPRINT "RECEIVED  (";sd$;" - ";ed$;", "; RIGHT$ (DATE$,4);")"
  147.    LPRINT CHR$ (27);"Y";
  148.    OPEN "Accts Recd" FOR INPUT AS #1
  149.    LPRINT CHR$(13)
  150.   Readata:
  151.    IF EOF(1) THEN Finis
  152.    INPUT#1, ts$
  153.    INPUT#1, CO$
  154.    INPUT#1,dr$
  155.    INPUT#1,CN$
  156.    INPUT #1, PR$
  157.    IF LEFT$(dr$,2)<sd$ THEN Readata
  158.    IF LEFT$(dr$,2)>ed$ THEN Finis
  159.    IF cd$="" OR cd$="all" THEN Skippit
  160.    IF CO$<>cd$ THEN Readata
  161.  Skippit:
  162.    LPRINT dr$;SPC(2);
  163.    IF LEN (CN$) >43 THEN LPRINT LEFT$(CN$,43);"...";TAB(60);
  164.    IF LEN (CN$) > 43 THEN GOTO Skipt
  165.    LPRINT CN$;TAB(60);
  166.  Skipt:
  167.    
  168.    PR=VAL(PR$)
  169.    LPRINT USING "$#####.##";PR
  170.    FT=FT+PR
  171.    IF EOF(1) THEN Finis
  172.    GOTO Readata
  173.   Finis:
  174.    LPRINT CHR$(13)
  175.    LPRINT"TOTAL RECEIVED:";TAB(60);
  176.    LPRINT USING"$######.##";FT
  177.    CLOSE #1
  178.    GOTO YourChoice
  179.     Code:
  180.     CLOSE #1
  181.     OPEN "Customers A" FOR INPUT AS #1
  182.   ReedIt:
  183.     IF EOF(1) THEN CLOSE #1: CLS:TEXTFACE(1):PRINT:PRINT"This customer not on file…":FOR m = 1 TO 2500:NEXT:CLS:RUN
  184.     INPUT #1,CD$,CN$,AD1$,AD2$,AD3$,ZP,ts$
  185.     IF CD$=CO$ THEN CLOSE #1:GOTO Begin
  186.     GOTO ReedIt
  187.   ListCodes:
  188. CLS
  189.   Lst:
  190.      OPEN "Customers B" FOR INPUT AS #1
  191.      WINDOW 2,"",(25,50)-(476,280),3
  192.   OpFile:
  193.      TEXTFACE(1)
  194.      IF EOF(1) THEN CLOSE #1:TEXTFACE(0):GOTO NewWndw
  195.      INPUT #1,CD$,CN$,ts$
  196.      PRINT CD$;
  197.      PRINT" - ";CN$
  198.      GOTO OpFile
  199.  
  200.   NewWndw:
  201.  WINDOW 3,"",(25,285)-(476,330),-3
  202.     BUTTON 1,1,"again",(55,10)-(130,35),1
  203.     BUTTON 2,1,"enter info",(192,10)-(267,35),1
  204.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  205.       WHILE DIALOG(0)<>1:WEND
  206.       ButtonPushed = DIALOG(1)
  207.       IF ButtonPushed = 1 THEN Lst
  208.       IF ButtonPushed  = 2 THEN  WINDOW CLOSE 2:WINDOW CLOSE 3:RUN
  209.       IF ButtonPushed  = 3 THEN LOAD "Open Me First",R
  210.  
  211.  
  212.  
  213.     
  214.   
  215.     
  216.